InputManについて

InputManをつかってプログラムを作ってます。
Form1からForm2に表示したときにInputManのカレンダーが表示するにはどのようにしたらいでしょうか？

いまのソースは以下の通りです。

***Form1***
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frmNextForm As Form2
frmNextForm = New Form2
frmNextForm.ShowDialog()
'オブジェクト解放
If Not frmNextForm Is Nothing Then
  frmNextForm.Dispose()
  frmNextForm = Nothing
End If
End Sub

***Form2***
Private Sub Date1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Date1.Enter
Date1.Drop()
End Sub

ご存知のかたがいらっしゃればよろしくお願いします。