...
        With Speichercheck                                        
            .Text = "......"
            .Width = 650
            .Height = 330
            .StartPosition = FormStartPosition.CenterScreen
            .AutoScroll = True
            .ControlBox = True
            .HelpButton = False
            .MaximizeBox = False
            .MinimizeBox = False
        End With
 
 Speichercheck.Show()
....

    Private Sub Close_Speichercheck_Click(ByVal sender As System.Object, ByVal _
      e As System.ComponentModel.CancelEventArgs) Handles Speichercheck.Closing
        Speichercheck.Visible = False
        e.Cancel = False
    End Sub