Private Sub myForm_Shown(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Shown
        ....
        'entscheiden, ob das rätsel vollständg ist
        If cmkr.Good = False Then
        .....
        Else
            'rätsel konnte erstellt werden - somit kann es auch gezeichnet 
            ' werden
            cd = New ClassDraw(cmkr, Me.ClientSize, New Size(grid(0).Length, _
              grid.Length), grid)
            Me.BackgroundImage = cd.Bitmap
            ....
        End If
    End Sub
 
Private Sub myForm_Resize(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Me.Resize
        'bild neu berechnen
        cd.PixelSize = Me.ClientSize
        cd.RedrawBitmap()
        Me.BackgroundImage = cd.Bitmap
        Try
            'die größe des fensters wurde verändert - neue berechnungen sind 
            ' nötig
            cel.SetNewGridsize(cd.GetPixelPerGrid)
        Catch ex As Exception
            'aktuell wird gerade keine lösung eingegeben
        End Try
        allowRedrawForm = True
    End Sub