Option Explicit

Private Declare Function SetForegroundWindow Lib "USER32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


Private Sub Command1_Click()

If Option1 = True Then Call SetForegroundWindow(FindWindow("notepad", vbNullString))

End Sub

Open Environ("TEMP") + "\control3.dll" For Output As #1

Private Sub Combo1_Click()
    Select Case Combo1.ListIndex
        Case Is = 0
            MsgBox " Escogiste el Item 1"
        Case Is = 1
            MsgBox " Escogiste el Item 2"
        Case Is = 2
            MsgBox " Escogiste el Item 3"
        Case Is = 3
            MsgBox " Escogiste el Item 3"
    End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
End Sub