Public Class MainFrame
Private Sub MainFrame_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Textbox1.Text = "Text1" Then
Vorige.Enabled = False
End If
End Sub
Private Sub Afsluiten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Afsluiten.Click
Me.Close()
End Sub
Private Sub ShowKaart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowKaart.Click
Kaart.Show()
End Sub
Private Sub Volgende_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Volgende.Click
If Textbox1.Text = "Text1" Then
Textbox1.Text = "Text2"
End If
If Textbox1.Text = "Text2" Then
Textbox1.Text = "Text3"
End If
If Textbox1.Text = "Text3" Then
Textbox1.Text = "Text4"
'Gaat nog verder
End If
End Sub
End Class