


' form1 code:
form2.show
me.enabled=false
' form2 code
private sub Form_Unload()
form1.enabled=true
end sub


DVV писал(а):А Можно Msgbox сделать не модальным?



Option Explicit
Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Sub Form_Load()
Me.Show
MessageBox 0, "dsf", "fhj", 0
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7