Ever want a round form? This short VB6 code will create it for you. I know it works on XP and Win7. Not tested on Win8.

Open a new VB6 project
I added two shapes and one label to the form---not necessary, but looks pretty! :-)
I use a Double-Click to unload the form, but you can use any ctrl/code you desire.

Code:
Option Explicit
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 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 Long) As Long
Private Sub Form_DblClick()
   Unload Me
End Sub
Private Sub Form_Load()
    Dim lngRegion As Long
    Dim lngReturn As Long
    Dim lngFormWidth As Long
    Dim lngFormHeight As Long
    Me.Width = Me.Height
    
    lngFormWidth = Me.Width / Screen.TwipsPerPixelX
    lngFormHeight = Me.Height / Screen.TwipsPerPixelY
    lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
    Shape1.Left = (Me.Width / 2) - (Shape1.Width / 2)
    Shape2.Left = (Me.Width / 2) - (Shape2.Width / 2)
    Shape1.Top = (Me.Height / 2) - (Shape1.Height / 2)
    Shape2.Top = (Me.Height / 2) - (Shape2.Height / 2)
    Label1.Top = (Me.Height / 2) - (Label1.Height / 2)
    Label1.Left = (Me.Width / 2) - (Label1.Width / 2)
End Sub
Private Sub Label1_Click()
   Unload frmRound
End Sub