Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
Select keyData
Case Keys.Down
key1 = Keys.Down
If key2 <> key1 Then
Call tiltdown1()
End If
key2 = key1
Case Keys.Up
key1 = Keys.Up
If key2 <> key1 Then
Call tiltup1()
End If
key2 = key1
Case Keys.Right
key1 = Keys.Right
If key2 <> key1 Then
Call Panright1()
End If
key2 = key1
Case Keys.Left
key1 = Keys.Left
If key2 <> key1 Then
Call Panleft1()
End If
key2 = key1
Case Keys.M
key1 = Keys.M
If key2 <> key1 Then
Call zoomout1()
End If
key2 = key1
Case Keys.N
key1 = Keys.N
If key2 <> key1 Then
Call zoomin1()
End If
key2 = key1
Case Keys.S
key1 = Keys.S
If key2 <> key1 Then
Call allstop1()
End If
key2 = key1
End Select
Return temp(0)
End Function
Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE