Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        'Hier wird der command aufgesetzt:
         AMA.Command = "username..."
 
        'hier der Send befehl rausgegeben:
        AMA.Send (0)
 
        If InStr(UCase(AMA.Response), "ENTER PASSWORD") > 0 Then
            MsgBox("found")
        End If
End Sub
 
' Hier das Response Event nachdem der Befehl an das System geschickt wird:
 
Public Sub AMA_DataComplete(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles AMA.DataComplete
        Dim i As Long
        Dim loopCount As Long
        Dim buflen As Long
        buflen = Len(AMA.Response)
        txtResponse.Text = ""
        ' The response buffer comes back as one long string
        ' Since Host Display screens are 64 columns in width, we extract
        ' 64 characters at a time for each line of the screen.
        For i = 1 To buflen Step 64
            If ((buflen - i) < 64) Then
                txtResponse.Text = txtResponse.Text + Mid$(AMA.Response, i, _
                  buflen - i) + vbCrLf
            Else
                txtResponse.Text = txtResponse.Text + Mid$(AMA.Response, i, 64) _
                  + vbCrLf
            End If
        Next i
End Sub