Olá Pessoal
Criei o seguinte código
Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer)
If DBList1.Visible = True Then
DBList1.Visible = False
Else
DBList1.Visible = True
End If
End Sub
Private Sub DBGrid1_RowColChange(MaxRow As Variant, ByVal MaxCol As Integer)
Dim Currentrow, CurrentCol
Currentrow = DBGrid1.Row
CurrentCol = DBGrid1.Col
If CurrentCol = 1 Then
DBList1.Visible = True
DBList1.Top = Me.DBGrid1.RowTop(Currentrow) + DBGrid1.RowHeight + 120
DBList1.Left = 400
DBList1.Width = 4040
Else
DBList1.Visible = False
End If
End Sub
Só que quando rodo o form, o dblist aparece sobre o dbgrid.
Como faço para que o dblist apareça fechado?
T+
Rinaldo