Download project reference code
Download Validation File
Public Class MDI
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label3.Text = "Donor"
Donor.ShowDialog()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Panel1.Width <= 78 Then
Panel1.Width = 78
Label3.Left = 83
PictureBox13.Visible = True
PictureBox14.Visible = True
PictureBox1.Visible = False
Timer1.Enabled = False
Else
Label3.Left = Label3.Left - 10
Panel1.Width = Panel1.Width - 10
End If
End Sub
Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.Click
Timer1.Enabled = True
End Sub
Private Sub PictureBox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.Click
Timer2.Enabled = True
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If Panel1.Width >= 284 Then
Panel1.Width = 284
Label3.Left = 305
PictureBox13.Visible = False
PictureBox14.Visible = False
PictureBox1.Visible = True
Timer2.Enabled = False
Else
Label3.Left = Label3.Left + 10
Panel1.Width = Panel1.Width + 10
End If
End Sub
Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
End
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
DisplayDonors.ShowDialog()
End Sub
End Class
