Hola ][kevin][, buen dÃa. Me alegra que ya hayas realizado tu primer programa.
Private Sub cmdSalir_click()
Beep
End
End Sub
Private Sub CmdAyuda_click()
MsgBox "Primer Programa Creado Por Kevin"
End Sub
Private Sub CmdDarkEndTeam_click()
MsgBox "Miembros:HeLiOsZ,Sint,Kevin,Demony,Yn_tux,Sarckz,Statik"
End Sub
Private Sub mnuFileExit_click()
End
End Sub
Private Sub CmdApagar_click()
Dim i As Integer
i = ExitWindowsEx(2, 0&)
End Sub
Sólo le fakta algo a tu código, la declaración de la API de apagado de Windows:
Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
Dicha API debe ir en la sección de declaraciones generales (en la parte de arriba, afuera de todos los subs). Para compilarlo debes ir a Archivo-->Generar Proyecto1.exe. Nos vemos.