Module Module1
    Sub Main()
        Try
            Dim locForm1 As Form1
            locForm1 = New Form1
            If Printing.PrinterSettings.InstalledPrinters.Count = 0 Then
                locForm1.Controls.Remove(locForm1.PrintPreviewControl1)
            End If
            locForm1.ShowDialog()
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten." & vbCrLf & vbCrLf & _
              ex.Message)
        End Try
    End Sub
End Module