ProcessCmdKey

 Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
        If keyData = Keys.F1 AndAlso keyData = Keys.Control Then
            formKampus.show()
            Return True
        ElseIf keyData = Keys.F2 AndAlso keyData = Keys.Control Then
            formAkreditasi.show()
            Return True
        ElseIf keyData = Keys.F3 AndAlso keyData = Keys.Control Then
            formStrukturOrganisasi.show()
            Return True
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function