GUI 5 Form 1

Public Class Form1
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Label1.Text = tbusername.Text
        If (tbusername.Text = "admin") And (tbpassword.Text = "admin") Then
            MessageBox.Show("isi " & tbusername.Text, "Judul", MessageBoxButtons.OK, MessageBoxIcon.Hand)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Clear()
        If CheckBox1.Checked Then
            TextBox1.Text = TextBox1.Text & CheckBox1.Name & " is Checked" & vbCrLf
        End If
        If CheckBox2.Checked Then
            TextBox1.Text = TextBox1.Text & CheckBox2.Name & " is Checked" & vbCrLf
        End If
        If RadioButton1.Checked Then
            TextBox1.Text = TextBox1.Text & RadioButton1.Name & " is Checked" & vbCrLf
        End If
        If RadioButton2.Checked Then
            TextBox1.Text = TextBox1.Text & RadioButton2.Name & " is Checked" & vbCrLf
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        MessageBox.Show("told you do not check")
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

    End Sub


    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If ComboBox1.SelectedItem = "Plus" Then
            Label2.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
        End If
        If ComboBox1.SelectedItem = "Minus" Then
            Label2.Text = Val(TextBox2.Text) - Val(TextBox3.Text)
        End If
    End Sub

    Private Sub Button3_MouseHover(sender As Object, e As EventArgs) Handles Button3.MouseHover
        Label2.Text = "hovering"
    End Sub

    Private Sub Button3_MouseLeave(sender As Object, e As EventArgs) Handles Button3.MouseLeave
        Label2.Text = "leave"
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.F1 Then
            'MessageBox.Show("F1 is pressed")
            If ColorDialog1.ShowDialog() = DialogResult.OK Then
                Me.BackColor = ColorDialog1.Color
            End If
        End If
    End Sub

End Class