[programmer-vb] Option Button di MSFlexGrid

[Muhammad Hanafi]

Halo semuanya,

Please help me..
Aku mau nanya coding nih. Soalnya masih pemula banget.

Gimana yah codingnya untuk masukkin option button ke MSFlexGrid (ke
dalam beberapa baris) ??
Tapi option buttonnya bukan sambungan atau terusan dari baris
sebelumnya, jadi tiap baris option buttonnya berdiri sendiri.

Di bawah ini ada koding yang sudah aku dapat untuk 1 baris saja, tapi
kalo di buat untuk banyak baris gimana ya? Yang tentunya bukan terusan
atau sambungan dari baris sebelumnya.

Thank's Before..
M. Hanafi


Private Sub Form_Load()
    Dim C As Integer
    Dim OB() As OptionButton

    With Me.MSFlexGrid1
        For C = 0 To 2
            .ColWidth(C) = 1200
        Next C
    End With

    For C = 0 To 2
        Me.MSFlexGrid1.Col = C
        ReDim OB(C)
        Set OB(C) = Me.Controls.Add("VB.OptionButton", "Option" & C)
        OB(C).Caption = "Option " & C
        OB(C).Width = Me.MSFlexGrid1.CellWidth
        OB(C).Height = Me.MSFlexGrid1.CellHeight
        OB(C).Top = Me.MSFlexGrid1.CellTop + Me.MSFlexGrid1.Top
        OB(C).Left = Me.MSFlexGrid1.CellLeft + Me.MSFlexGrid1.Left
        OB(C).Visible = True
        OB(C).ZOrder
    Next C
End Sub