Red de conocimiento informático - Material del sitio web - Cómo implementar el diálogo QQ en VB

Cómo implementar el diálogo QQ en VB

Private Sub Command1_Click()

Dim qq$

qq = InputBox("¡Ingrese el número QQ con el que desea chatear!")

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE /msgrd?V=1&Uin=" & qq & "&Site=ioshenmue&Menu=yes", 0

End Sub