WAP to find the got focus and lost focus

Private Sub Command1_GotFocus()
Command1.Caption = "Got Focus"
End Sub

Private Sub Command1_LostFocus()
Command1.Caption = "Lost Focus"
End Sub

Private Sub Command2_GotFocus()
Command2.Caption = "Got Focus"
End Sub

Private Sub Command2_LostFocus()
Command2.Caption = "Lost Focus"
End Sub

Private Sub Command3_GotFocus()
Command3.Caption = "Got Focus"
End Sub

Private Sub Command3_LostFocus()
Command3.Caption = "Lost Focus"
End Sub


Posted by: Wasim Javed