RE:Cambiar PANTALLAS de formularios en vb
Aqui un ejemplo muy sencillo ... Abre un proyecto nuevo,
Pones un CommandButton en la forma, pegas este codigo y luego
oprimes F5 para ejecutarlo ...
Dim Retorno As Variant
Dim RGN As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X As Long, ByVal Y As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Command1.Top = 600
Me.Command1.Left = 600
Me.Command1.Caption = "Terminar"
RGN = CreateEllipticRgn(0, 0, 218, 218)
Retorno = SetWindowRgn(Me.hWnd, RGN, True)
End Sub