form1.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 15 行

Public Class Form1

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Me.Close()
    End Sub

    Private Sub PinUserControl1_PinChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PinUserControl1.PinChanged
        If PinUserControl1.IsEntered Then
            Me.BackColor = Color.Green
        Else
            Me.BackColor = Color.White
        End If
    End Sub
End Class