|
|
Jabaco Source |
1 2 3 4 5 6 7 8 9 10 11 12 |
Dim Dialog2 As New Dialog1 Public Sub Command1_Click() 'Dialog2.Parent.setAlwaysOnTop(True) Dialog2.Parent.setVisible(True) 'Dialog2.Parent.setModal(True) 'Dialog2.Show(1) End Sub Public Sub Command2_Click() Dialog2.Parent.toFront() End Sub |