[Jerrick]

Товарищи, очень нужна ваша помощь!
описание форм не выкладываю... Откликнувшимся заранее огромное спасибо!!!

//..........frmSettings.frm..............

Код:

Attribute VB_Name = "frmSettings"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOk_Click()
  PortName = txtPort
  Koefin = Val(txtKin)
  Koefout = Val(txtKout)
  PathStprokat = txtPathStPr
  PathBase = txtpathDonix
  
  If Len(PortName) = 0 Then PortName = "Com1"
  If Koefin <= 0 Then Koefin = 1
  If Koefout <= 0 Then Koefout = 1
  If Len(PathStprokat) = 0 Then PathStprokat = "\\helios\ves_oc\inb\"
  If Len(PathBase) = 0 Then PathBase = "\\helios\donix\"
  
  Open App.path & "\Slb.ini" For Output As #1
    Print #1, PortName
    Print #1, Koefin
    Print #1, Koefout
    Print #1, PathStprokat
    Print #1, PathBase
  Close #1
  
  Unload Me
End Sub
Private Sub Form_Activate()
  txtPort = PortName
  txtKin = Koefin
  txtKout = Koefout
  txtPathStPr = PathStprokat
  txtpathDonix = PathBase
End Sub