I have two Forms -SPlashForm & LoginUserForm. On the LoginUserForm, I haveclose Button.
ERROR - Close Button on LoginUserForm is not working
[code]
LoginUserForm CODE -
ERROR - Close Button on LoginUserForm is not working
Code:
SPlashForm CODE -
Public Class FrmSplash
Private Sub FrmSplash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
ProgressBar1.Value = 0
Timer1.Interval = 600 'remember this value is in milliseconds
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value <> ProgressBar1.Maximum Then
ProgressBar1.Value = (ProgressBar1.Value + 10)
Label1.Text = "Loading " & ProgressBar1.Value & "% Complete"
Else
LoginUserForm.Visible = True
Me.Visible = False
End If
End Sub
End Class
[code]
LoginUserForm CODE -
Code:
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub