You are missing the second message:
Code:
Sub Button1_Click
hw1.SendMessageToControl("Calendar1",513,0,0)
hw1.SendMessageToControl("Calendar1",514,0,0) 'was missing
End Sub
513 is the value of MouseDown and 514 is the value of MouseUp.
Both are required in order to properly show the calendar.