Advertisement
Guest User

Untitled

a guest
Oct 1st, 2016
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.57 KB | None | 0 0
  1.  Private Sub Welcome_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
  2.         If e.Alt And e.KeyCode.ToString = "F11" Then
  3.             Me.KeyPreview = True
  4.             AdminReq.Show()
  5.             Me.Hide()
  6.         ElseIf e.Alt And e.KeyCode.ToString = "F12" Then
  7.             Me.Hide()
  8.             Admin.Show()
  9.         ElseIf e.KeyCode.ToString = "F10" Then
  10.             connection.Open()
  11.             MsgBox("Connected to database!", vbInformation, "Test Connection")
  12.             connection.Close()
  13.         End If
  14.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement