there is nothing in the form load to make it modal, all thats in the form load is this
VB Code:
Private Sub Form_Load()
ver = version.Text
Text3.Text = VolumeSerialNumber("C:\")
linecount = 1
On Error GoTo nolicence
Open "Licence.txt" For Input As #1
Do While Not EOF(1)
Input #1, MyChar
Text5.Text = Text5.Text + MyChar + vbCrLf
linecount = linecount + 1
Loop
Close #1
user = GetTextBoxLine(Text5, 0)
pass = GetTextBoxLine(Text5, 1)
If GenKey(ver + "tejpal" + user) = GetTextBoxLine(Text5, 1) Then
Frame1.Visible = False
frmNokia.Caption = frmNokia.Caption + " <" + user + ">"
Frame3.Visible = True
Label2.Caption = "Welcome " + user
Exit Sub
End If
Exit Sub
nolicence:
MsgBox "Invalid key.", vbInformation, "Invalid Username/Password"
End Sub
And whats in the button is
VB Code:
Private Sub Command1_Click()
Unload (Form_Reg)
frmnokia.show
End Sub
I dont understand the problem, please help