第2、3题我已经做出来了，但第1题程式有些问题，解不出来
2.
Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
Me.Cursor = Cursors.Default
Me.BackColor = Color.White
End Sub
Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
Me.Cursor = Cursors.Default
Me.BackColor = Color.Gray
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
Dim procss As System.Diagnostics.Process = _
New System.Diagnostics.Process()
End Sub
3.
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim procss As System.Diagnostics.Process = _
New System.Diagnostics.Process()
If e.KeyCode = Keys.B And e.Control = True Then
Me.Cursor = Cursors.Default
Me.BackColor = Color.White
ElseIf e.KeyCode = Keys.G And e.Control = True Then
Me.Cursor = Cursors.Default
Me.BackColor = Color.Gray
End If
End Sub
