Try
Dim ws_ARA As medeczaneWs.SaglikTesisiReceteIslemleriServiceWse = New medeczaneWs.SaglikTesisiReceteIslemleriServiceWse()
Dim ws_icerik As New ereceteSorguIstekDVO
ws_ARA.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
ws_icerik .tesisKodu = "1212121212121"
ws_icerik .ereceteNo = "121212121"
ws_icerik .doktorTcKimlikNo = "
12312312312"
ws_ARA.RequestSoapContext.Security.Clear()
Dim token As New Microsoft.Web.Services3.Security.Tokens.UsernameToken(TextBox1.Text, TextBox2.Text, Microsoft.Web.Services3.Security.Tokens.PasswordOption.SendPlainText)
ws_ARA.RequestSoapContext.Security.Timestamp.TtlInSeconds = 14400
ws_ARA.RequestSoapContext.Security.Tokens.Add(token)
ws_ARA.RequestSoapContext.Security.MustUnderstand = True
Dim ws_iceriksonuc As medeczaneWs.ereceteSorguCevapDVO = ws_ARA.ereceteSorgula(ws_icerik )
MsgBox("SONUÇ:" & ws_iceriksonuc.sonucMesaji.ToString)
Catch ex As Exception
MsgBox("HATA:" & ex.ToString, MsgBoxStyle.Critical)
End Try