[Mohamad Anan]

و عليكم السلام و رحمة الله و بركاته

كود :

Private Sub Command1_Click()
   DTPicker1.SetFocus
   SendKeys "{F4}"
End Sub