Private Sub cmdweiter_Click() 
' Variable deklarieren. 
Dim I As Integer 
Dim datei As String 
 
' Ausgewählte Dateien von lbox_pb zu lbox_pb2 hinzufügen. 
For I = 0 To lbox_pb.ListCount - 1 
If lbox_pb.Selected(I) > 0 Then 
datei = lbox_pb.List(I) 
frmPARS.lbox_pb2.AddItem datei 
End If 
[color=red]frmPrüfbericht.Visible = False 
frmPARS.Visible = True [/color]
Exit For 
Next I 
End Sub

Viel Spass,
R@lf