Option Explicit
 
Private WithEvents mMessenger As MessengerAPI.Messenger
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
 
Private Sub Command1_Click()
    mMessenger.OptionsPages 0, MOPT_GENERAL_PAGE
    Sleep 50
    SendKeys "{TAB}", True
    SendKeys "Subnick desde VB6 O.o", True
    SendKeys "{ENTER}", True
End Sub
 
Private Sub Form_Load()
    Set mMessenger = New MessengerAPI.Messenger
End Sub