这就是我所拥有的.

Private Sub btnShowForm_Click(sender As Object,e As EventArgs) Handles btnShowForm.Click
 
    'This procedure runs when the btnShowForm
    'button is clicked. The procedure maximizes the size
    'of the form,hides the left right button and displays the button
    'to expand the form. It also moves the comboBox down. 
    'It calls the viewButtons function to hide and
    'display the right buttons.     
    'The procedure also uses a timer to set the fade in and out the
    'form when is min or max
 
    Me.Height = 126
 
    Me.Opacity = 0.2                   'About 20%
    timNavigationPage.Interval = 100   'about one-tenth of a second
    timNavigationPage.Start()          'Start the timer
 
 
    cmbViewDataSheets.Location = New Point(741,89)
 
 
    viewButtons(False,True)
 
End Sub
 
Private Sub timNavigationPage_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles timNavigationPage.Tick
 
    'Initialize the timer to fade form.
 
    Dim x As Double = 0.075
 
    If Me.Opacity <= 1 Then
        Me.Opacity += x     'increment opacity with 7.5%
 
    ElseIf Me.Opacity + x > 1 Then
        timNavigationPage.Stop()       'Stop the timer then the opacity has reached a 100%
 
    End If
 
End Sub