17 lines
411 B
VB.net
17 lines
411 B
VB.net
Public Class uscntr_ConnectTel
|
|
|
|
|
|
Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
|
|
If TextBox1.TextLength > 0 And TextBox2.TextLength > 0 Then
|
|
|
|
Dim pascom As New cPascom
|
|
pascom.Username = TextBox1.Text
|
|
pascom.Arbeitsplatz = TextBox2.Text
|
|
pascom.Anmelden()
|
|
|
|
Else
|
|
End If
|
|
|
|
End Sub
|
|
End Class
|