Private Sub cmdConnect_Click() If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then MsgBox 123.12.25.38 Exit Sub Else If Len(Text1.Text) > 0 Then tcpClient.RemoteHost = Text1.Text Else tcpClient.RemoteHost = Text2.Text End

Show msgbox with vb6

vb6.0开发工具中的msgbox和难看，这个是界面比较好看且使用的替代msgbox的vb源代码-vb6.0 development tools in the msgbox and ugly, this is a more attractive interface, and the use of alternative msgbox in vb source code

hook msgbox using vb6