Altereando Formato do Form

Em um módulo:  Public Type POINTAPI          x As Long          y As Long  End Type  Public Type tP      P(1 To 3) As POINTAPI  End Type  Public Declare Function CreatePolygonRgn Lib “gdi32” (lpPoint As POINTAPI, _  ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long  Public Declare Function SetWindowRgn Lib “user32” (ByVal hWnd As Long, _  ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long  Private Sub Form_Load()      Me.ScaleMode = vbPixels      Dim z As tP      z.P(1).x = ((Me.ScaleHeight - Me.ScaleLeft) / 2) + 13      z.P(1).y = 26      z.P(2).x = 26      z.P(2).y = Me.ScaleHeight - Me.ScaleLeft      z.P(3).x = Me.ScaleHeight - Me.ScaleLeft      z.P(3).y = Me.ScaleHeight - Me.ScaleLeft      SetWindowRgn hWnd, CreatePolygonRgn(z.P(1), 3, 3), True  End Sub 

Quebra-Linha

Colaborador..: Carlos Andrew Costa Bezerra
Categoria(s).: Programação; Visual Basic;
Versão.......: 1.0
Data.........: 19/06/2003 14:15:31
Visualizado..: 6946 vezes
Fonte........: Carlos Andrew