Option Explicit

Private Sub Form_Load()
  Dim Index As Integer

  For Index = 0 To 3
    Command1_Click (Index)
  Next Index
  Command2_Click
End Sub

Private Sub Command1_Click(Index As Integer)
  Dim n As Long

  Select Case Index
    Case 0
      MSHFlexGrid1.Cols = Text1.Text
    Case 1
      MSHFlexGrid1.Rows = Text2.Text
    Case 2
      For n = 0 To MSHFlexGrid1.Cols - 1
        MSHFlexGrid1.ColWidth(n) = Text3.Text
      Next n
    Case 3
      For n = 0 To MSHFlexGrid1.Rows - 1
        MSHFlexGrid1.RowHeight(n) = Text4.Text
      Next n
  End Select
End Sub

Private Sub Command2_Click()
  Dim n, x, y, aa

  For n = 0 To MSHFlexGrid1.Cols - 1
    aa = ""
    For y = 0 To 2
      aa = aa & Chr$(Rnd * 25 + 65)
    Next y
    MSHFlexGrid1.TextMatrix(0, n) = aa
  Next n

  For n = 0 To MSHFlexGrid1.Rows - 1
    aa = ""
    For y = 0 To 2
      aa = aa & Chr$(Rnd * 25 + 65)
    Next y
    MSHFlexGrid1.TextMatrix(n, 0) = aa
  Next n

  For y = 1 To MSHFlexGrid1.Cols - 1
    For x = 1 To MSHFlexGrid1.Rows - 1
      MSHFlexGrid1.TextMatrix(x, y) = Int((50 * Rnd) + 1)
    Next x
  Next y
End Sub

Private Sub Command3_Click(Index As Integer)
  Select Case Index
    Case 0
      MSHFlexGrid1.BackColor = FarbAuswahl
    Case 1
      MSHFlexGrid1.ForeColor = FarbAuswahl
    Case 2
      MSHFlexGrid1.BackColorFixed = FarbAuswahl
    Case 3
      MSHFlexGrid1.ForeColorFixed = FarbAuswahl
    Case 4
      MSHFlexGrid1.BackColorSel = FarbAuswahl
    Case 5
      MSHFlexGrid1.ForeColorSel = FarbAuswahl
    Case 6
      MSHFlexGrid1.CellBackColor = FarbAuswahl
    Case 7
      MSHFlexGrid1.CellForeColor = FarbAuswahl
    Case 8
      MSHFlexGrid1.BackColorBkg = FarbAuswahl
    Case 9
      MSHFlexGrid1.GridColor = FarbAuswahl
  End Select
End Sub

Function FarbAuswahl() As Long
  Dim temp As Long
  On Error GoTo ErrHandler
    CommonDialog1.CancelError = True
    CommonDialog1.Flags = cdlCCRGBInit
    CommonDialog1.ShowColor
    temp = CommonDialog1.Color
    FarbAuswahl = temp
  Exit Function

ErrHandler:
  Exit Function
End Function

Private Sub Combo1_Click(Index As Integer)
  Select Case Index
    Case 0
      MSHFlexGrid1.AllowUserResizing = Combo1(Index).ListIndex
    Case 1
      MSHFlexGrid1.ColAlignmentFixed = Combo1(Index).ListIndex
    Case 2
      MSHFlexGrid1.ColAlignment = Combo1(Index).ListIndex
    Case 3
      MSHFlexGrid1.GridLines = Combo1(Index).ListIndex
    Case 4
      MSHFlexGrid1.GridLinesFixed = Combo1(Index).ListIndex
  End Select
End Sub

Private Sub Check1_Click()
  If Check1.Value = 1 Then
    MSHFlexGrid1.AllowBigSelection = True
  Else
    MSHFlexGrid1.AllowBigSelection = False
  End If
End Sub

Private Sub Check2_Click()
  If Check2.Value = 1 Then
    MSHFlexGrid1.Appearance = flex3D
  Else
    MSHFlexGrid1.Appearance = flexFlat
  End If
End Sub