Private Sub UserForm_Activate()
 
With Label1
    .Move 0, 0
    .BackColor = vbInfoBackground
    .ForeColor = vbInfoText
    .WordWrap = False
    .AutoSize = True
End With
Frame1:Enabled = False
Frame1.Visible = False
 
End Sub
 
Private Sub MSFlexGrid1_MouseMove(ByVal Button As Integer, ByVal Shift As _
  Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
    With MSFlexGrid1
        Label1.Caption = .TextMatrix(.MouseRow, .MouseCol)
        Frame1.Move .Left + (x + 16) * 0.75 - Label1.Width / 2, .Top + (32 + y) _
          * 0.75, Label1.Width, Label1.Height
    End With
    Frame1.Visible = True
End Sub
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
  ByVal x As Single, ByVal y As Single)
    Frame1.Visible = False
End Sub

Gruss,

Zardoz

Beitrag wurde zuletzt am 27.04.10 um 15:58:08 editiert.