وبلاگ رسمی مهدی غلامی میاندهی

ابتدا دو دکمه به نام های command 1 , command 2 روی فرم ایجاد می کنیم. سپس در قسمت فرم کد کد های زیر را وارد می کنیم.

private Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
 
  ShowCursor 0   'Hide
  Command2.SetFocus
  Me.Print "press enter key"
End Sub

Private Sub Command2_Click()
ShowCursor 1   'Show
End Sub