Private Sub cmdDruck_Click() 
  Dim bResult As Boolean
  Dim oControl As Control 
 
  bResult = True
  For Each oControl In Form1 
    If TypeOf oControl Is ComboBox Then 
      If oControl.ListIndex < 0 Then 
        bResult = False
        MsgBox "Bitte ALLE auswählen!", vbCritical, "Fehler!" 
        oControl.SetFocus 
        Exit For 
      End If 
    End If 
  Next  
 
  If bResult Then
    ' alles ok, also Form2 anzeigen
    With Form2
      .lblTechniker.Caption = cboTechniker.Text 
      .lblDatum.Caption = txtDatum.Text 
      .lblNummer.Caption = txtNummer.Text 
      .lblBauzeit.Caption = cboBauzeit.Text 
      .lblFirma.Caption = txtFirma.Text 
      .Show
    End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de