Dim nMonitors As Long
    nMonitors = GetSystemMetrics(SM_CMONITORS) 'VB-Tipp um Anzahl vorhandener 
    ' Monitore zu ermitteln
 
    If nMonitors > 1 Then
        Form2.Show
        Form2.Left = Form1.ScaleWidth 'Der Einfachheit halber geht das Beispiel 
        ' davon aus, dass das aufrufende Form1 maximiert angezeigt 
        ' wird-->Form2 wird so an den Bildschirmrand (von Monitor1) verschoben...
        Form2.WindowState = vbMaximized '...und dadurch auf Bildschirm2 
        ' maximiert
    End If