Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        My.Settings.ProgramStarts += 1
 
        If My.Settings.ProgramStarts = 5 Then
            ' Öffne Form A
        Else
            ' Öffne Form B
        End If
    End Sub