Public WithEvents msn As MessengerAPI.Messenger
Attribute msn.VB_VarHelpID = -1
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub cmdscegli_Click()
comdl1.ShowColor
lblcolor.BackColor = comdl1.Color
txtColour.Text = "#" + Hex(comdl1.Color)
End Sub
Private Sub Command1_Click()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys "·$" + txtColour + txtNamec.Text
SendKeys "{ENTER}"
Me.Show
End Sub
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub