Private Sub Text1_Click()
  With MonthView1
    .Move SSTab1.Left + Text1.Container.Left + Text1.Left, SSTab1.Top + _
      Text1.Container.Top + Text1.Top + Text1.Height
    .ZOrder vbBringToFront
    .Visible = True
  End With
End Sub

Option Explicit
 
Private Type POINTAPI
  X As Long
  Y As Long
End Type
 
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, _
  lpPoint As POINTAPI) As Long
 
Private Sub Form_Load()
  Me.ScaleMode = vbTwips
  Set MonthView1.Container = Me
End Sub
 
Private Sub Text1_Click()
  Dim XPos!, YPos!, Pt1 As POINTAPI, Pt2 As POINTAPI
 
  Call ClientToScreen(Text1.hwnd, Pt1)
  Call ClientToScreen(Me.hwnd, Pt2)
  XPos = Screen.TwipsPerPixelX * (Pt1.X - Pt2.X - 2)
  YPos = Screen.TwipsPerPixelY * (Pt1.Y - Pt2.Y - 2) + Text1.Height
  With MonthView1
    .Move XPos, YPos
    .ZOrder vbBringToFront
    .Visible = True
  End With
End Sub

Gruss,

Zardoz