Private Sub Form_Load()
  With MSFlexGrid1
    .Move 2000, 300, 4000, 2000
    .FixedRows = 1
    .FixedCols = 1
    .Rows = 5
    .Cols = 3
 
    'Tabelle erstellen und beschriften
    .ColWidth(0) = 1000
    .ColWidth(1) = 1000
    .ColWidth(2) = 1000
 
    .TextMatrix(0, 0) = "seit"
    .TextMatrix(0, 1) = "Zeit"
    .TextMatrix(0, 2) = "Info"
  End With
End Sub
 
Private Sub MSFlexGrid1_Click()
  Print "Click Ereignis"
End Sub
 
Private Sub MSFlexGrid1_EnterCell()
  Print "EnterCell"
End Sub
 
Private Sub MSFlexGrid1_LeaveCell()
  Print "LeaveCell"
End Sub
 
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
  Print "MouseDown"
End Sub
 
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
  Print "MauseUp"
End Sub
 
Private Sub MSFlexGrid1_RowColChange()
  Print "RowColChange"
End Sub
 
Private Sub MSFlexGrid1_SelChange()
  Print "SelChange"
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.