Trasparenze di un form

'**********************************************

' esegue una trasparenza graduale del form

'**********************************************



Private Sub MyTrasparenze(ByVal Segno As Char)
'*****************************************************

'################################# End MenuMyTrasparenze.vb


' segno "+" chiude

' segno - Apre

Dim I As Double
If TypeConn.Trasparenze = "True" And Segno = "+" Then
For I = -1 To 0 Step 0.1
Me.Opacity = System.Math.Abs(I)
Me.Refresh()
Next I
ElseIf TypeConn.Trasparenze = "True" And Segno = "-" Then
For I = 0 To -1 Step -0.1
Me.Opacity = System.Math.Abs(I)
Me.Refresh()
Next I
End If
End Sub