Private Declare Function SendMessage Lib "user32.dll" _
  Alias "SendMessageA" ( _
  ByVal hWnd As Long, _
  ByVal Msg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As String) As Long
 
Private Declare Function GetDlgItem Lib "user32.dll" ( _
                 ByVal hDlg As Long, _
                 ByVal nIDDlgItem As Long) As Long
 
 
Private Declare Function FindWindow Lib "user32" _
        Alias "FindWindowA" (ByVal lpClassName _
        As String, ByVal lpWindowName As String) _
        As Long
 
Private Const WM_SETTEXT As Long = &HC
Const WM_GETTEXT = &HD
 
 
Private Sub Command1_Click()
 Dim xhwnd As Long
 Dim lhwnd As Long
 Dim hwndLeihscheinNr, hwndServiceNr As Long
 Dim prüfServiceNrtext As String * 255
 Dim prüfLeihscheinNrtext As String * 255
 Dim ret,ret1 As Long
 
    lhwnd = FindWindow(vbNullString, "form1")
 
 
hwndServiceNr = GetDlgItem(lhwnd, 1)
hwndLeihscheinNr = GetDlgItem(lhwnd, 2)
 
ret = SendMessage(hwndServiceNr, WM_GETTEXT, Len(prüfServiceNrtext), _
  prüfServiceNrtext)
ret1 = SendMessage(hwndLeihscheinNr, WM_GETTEXT, Len(prüfLeihscheinNrtext), _
prüfLeihscheinNrtext)
 
 
MsgBox prüfLeihscheinNrtext & " " & prüfServiceNrtext
 
If prüfLeihscheinNrtext = Me.Text1.text Then 'And prüfServiceNrtext = 
' Me.Text2.text Then
MsgBox "geht"
Else
MsgBox "oder nicht"
End If
 
End Sub