Dim num As String
Dim qqurl As String
Private Sub Command1_Click()
num = Me.Text1.Text
qqurl = "http://wpa.qq.com/msgrd?V=1&Uin=" & qqstyle & Me.Text1.Text
Me.WebBrowser1.Navigate qqurl
End Sub
Private Sub Form_Unload(Cancel As Integer)
y = MsgBox("玩够了?骚扰够NB吧!", vbQuestion + vbYesNo, "QQ临时对话")
If y = vbNo Then Cancel = -1
End Sub