Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mvHasFocus Then
mvHasFocus = False
Call Command1_Click
End If
End Sub
Private Sub MonthView1_GotFocus()
mvHasFocus = True
End Sub
Private Sub Command1_Click()
MsgBox "command1_click"
End Sub