\\\splash screen form2
ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "Hi I Am Here"
timer1.Enabled = True
timer1.Interval = 25
Me.Opacity = 0
Me.Text = "Splash"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles timer1.Tick
Me.Opacity += 0.01
If Me.Opacity = 1 Then
Me.Close()
End If
End Sub
////
\\\form1
Private Sub Form1_Load(ByVal sender _
As Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim frm As New Form2
frm.ShowDialog()
frm.Dispose()
End Sub
///
Why not write "Harfreed" ("a" pronounced like the "a" in "a toy") in future?
Would enable people to know how your name sounds really.
Armin [are-mean]
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.