tugas puzzle

l. Langkah pertama buatlah desain form seperti berikut :

2. Langakah ke dua masukanlah source seperti berikut :

Public Class puzzle

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button4.Visible = False Then
            Button4.Visible = True
            Button1.Visible = False
            Button4.Text = Button1.Text
        Else
            If Button2.Visible = False Then
                Button2.Visible = True
                Button1.Visible = False
                Button2.Text = Button1.Text
            End If
        End If
        hasil()
    End Sub



    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button1.Visible = False Then
            Button1.Visible = True
            Button4.Visible = False
            Button1.Text = Button4.Text
        ElseIf Button7.Visible = False Then
            Button7.Visible = True
            Button4.Visible = False
            Button7.Text = Button4.Text
        ElseIf Button5.Visible = False Then
            Button5.Visible = True
            Button4.Visible = False
            Button5.Text = Button4.Text
        End If
        hasil()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Button4.Visible = False Then
            Button4.Visible = True
            Button7.Visible = False
            Button4.Text = Button7.Text
        Else
            If Button8.Visible = False Then
                Button8.Visible = True
                Button7.Visible = False
                Button8.Text = Button7.Text
            End If
        End If
        hasil()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button1.Visible = False Then
            Button1.Visible = True
            Button2.Visible = False
            Button1.Text = Button2.Text
        ElseIf Button5.Visible = False Then
            Button5.Visible = True
            Button2.Visible = False
            Button5.Text = Button2.Text
        ElseIf Button5.Visible = False Then
            Button5.Visible = True
            Button2.Visible = False
            Button5.Text = Button2.Text
        ElseIf Button3.Visible = False Then
            Button3.Visible = True
            Button2.Visible = False
            Button3.Text = Button2.Text
        End If
        hasil()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Button7.Visible = False Then
            Button7.Visible = True
            Button8.Visible = False
            Button7.Text = Button8.Text
        ElseIf Button9.Visible = False Then
            Button9.Visible = True
            Button8.Visible = False
            Button9.Text = Button8.Text
        ElseIf Button5.Visible = False Then
            Button5.Visible = True
            Button8.Visible = False
            Button5.Text = Button8.Text
        End If
        hasil()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Button3.Visible = False Then
            Button3.Visible = True
            Button6.Visible = False
            Button3.Text = Button6.Text
        ElseIf Button9.Visible = False Then
            Button9.Visible = True
            Button6.Visible = False
            Button9.Text = Button6.Text
        ElseIf Button5.Visible = False Then
            Button5.Visible = True
            Button6.Visible = False
            Button5.Text = Button6.Text
        End If
        hasil()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button6.Visible = False Then
            Button6.Visible = True
            Button3.Visible = False
            Button6.Text = Button3.Text
        Else
            If Button2.Visible = False Then
                Button2.Visible = True
                Button3.Visible = False
                Button2.Text = Button3.Text
            End If
        End If
        hasil()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Button8.Visible = False Then
            Button8.Visible = True
            Button9.Visible = False
            Button8.Text = Button9.Text
        Else
            If Button6.Visible = False Then
                Button6.Visible = True
                Button9.Visible = False
                Button6.Text = Button9.Text
            End If
        End If
        hasil()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Button4.Visible = False Then
            Button4.Visible = True
            Button5.Visible = False
            Button4.Text = Button5.Text
        ElseIf Button2.Visible = False Then
            Button2.Visible = True
            Button5.Visible = False
            Button2.Text = Button5.Text
        ElseIf Button8.Visible = False Then
            Button8.Visible = True
            Button5.Visible = False
            Button8.Text = Button5.Text
        ElseIf Button6.Visible = False Then
            Button6.Visible = True
            Button5.Visible = False
            Button6.Text = Button5.Text
        End If
        hasil()
    End Sub
    Private Sub hasil()
        If (Button1.Text = "1" And Button2.Text = "4" And Button3.Text = "7" And Button4.Text = "2") Then
            If (Button5.Text = "5" And Button6.Text = "8" And Button7.Text = "3") Then
                If (Button8.Text = "6") Then
                    MessageBox.Show("****** YOU WINNER ******")
                End If
            End If
        End If
    End Sub
End Class