Private Sub Command1_Click()
Dim strURL As String, strFormData As String
 

strURL = "http://85.111.0.121/pwSmsToMany"
strFormData = "<MainmsgBody>"
strFormData = strFormData & "<UserName>" & Text1.Text & "</UserName><PassWord>" & Text2.Text & "</PassWord><Mesgbody>" & Text3.Text
strFormData = strFormData & "</Mesgbody><Numbers>" & Text4.Text & "</Numbers><Type>1</Type><Originator></Originator><SDate></SDate><EDate></EDate></MainmsgBody>"
Inet1.Execute strURL, "POST", strFormData

End Sub



Private Sub Inet1_StateChanged(ByVal State As Integer)
  Dim vtData As Variant ' Data variable.
  
   Select Case State
    
    Case icResponseCompleted
    vtData = Inet1.GetChunk(4072, icString)
    MsgBox (vtData)
   '    Label1.Caption = vtData
    
  End Select
 
End Sub