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