![]() |
#2
xzlxzlxzl2014-12-06 21:08
|
Private Sub Text1_KeyDown(KeyCode As Integer, ShiftAs Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(ShiftAnd Alt)> 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down%Then
Text1.Text="abl"
End If
EndSub