Private Sub Form_Load()
Winsock1.Connect server, 25
End Sub

Private Sub Winsock_Connect()
Winsock1.SendData "From:[email protected]"
Winsock1.SendData "To:[email protected]"
Winsock1.SendData "Subject:[email protected]"
Winsock1.SendData "Hello World!"
Winsock1.Close
Ens Sub()