EVENT DAN METHOD PADA VB.NET 2008

Sedikit penjelasan tentang apa itu event dan apa itu method, kalau menurut saya begini,,,......
event yaitu pemberitahuan yang diterima oleh objek sedangkan method yaitu merupakan suatu tindakan yang dilakukan oleh objek,
agar lebih mudag dipahami langsung aja buat sebuah aplikasi sedrhana seperti berikut :

desain form seperti berikut ,

dan atur properties seperti berikut :

Kemudian Ketikkan kode berikut :

Cara untuk merubah event nya klik combobox yang ada di paling atas pada penulisan kode program

Public Class FRM_METHOD_EVENT

    Private Sub TXTQTTY_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTQTTY.GotFocus
        TXTQTTY.BackColor = Color.White
    End Sub

    Private Sub TXTQTTY_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTQTTY.KeyPress
        If (e.KeyChar < Chr(48) Or e.KeyChar > Chr(57)) And e.KeyChar <> Chr(8) Then
            e.Handled = True
            MsgBox("HARUS ANGKA")
        End If
    End Sub

    Private Sub TXTQTTY_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTQTTY.LostFocus
        TXTQTTY.BackColor = Color.Gainsboro
    End Sub

    Private Sub TXTQTTY_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTQTTY.TextChanged
        If TXTQTTY.Text <> "" Then
            TXTTOBAR.Text = CDbl(TXTQTTY.Text) * CDbl(TXTHRGSAT.Text)
            TXTTOBAR.Text = Format(CDbl(TXTTOBAR.Text), "#,###.00")
        Else
            TXTTOBAR.Text = 0
        End If
    End Sub

    Private Sub TXTKDBRG_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTKDBRG.GotFocus
        TXTKDBRG.BackColor = Color.White
    End Sub

    Private Sub TXTKDBRG_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTKDBRG.KeyPress
        If e.KeyChar = Chr(13) Then
            If UCase(TXTKDBRG.Text) = "A" Or UCase(TXTKDBRG.Text) = "B" Then
                If UCase(TXTKDBRG.Text) = "A" Then
                    TXTNMBRG.Text = "PC"
                    TXTHRGSAT.Text = "3500000"
                ElseIf UCase(TXTKDBRG.Text) = "B" Then
                    TXTNMBRG.Text = "LAPTOP"
                    TXTHRGSAT.Text = "5000000"
                End If
                TXTHRGSAT.Text = Format(CDbl(TXTHRGSAT.Text), "#,###.00")
                TXTQTTY.Focus()
            Else
                MsgBox("KODE SALAH..........[A/B]")
                TXTKDBRG.Focus()

            End If
        End If
    End Sub

    Private Sub TXTKDBRG_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTKDBRG.LostFocus
        TXTKDBRG.BackColor = Color.Gainsboro
    End Sub

    Private Sub BTNCLOSE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCLOSE.Click
        Me.Close()
    End Sub
End Class