Just use three pictureboxes, one label, one command button on the form, set the form's border style to none. Below is the code for it...

Private Sub Command1_Click()
Dim s As String
s = InputBox("Enter the Caption for Title Bar", "Title Bar Caption")

If s Like "" Then
Else
Label1.Caption = s
End If

Label1.Visible = True
Label1.Left = Me.ScaleLeft
Label1.Top = Me.ScaleTop
Label1.Width = Me.ScaleWidth
Picture1.Visible = True
Picture1.Top = Me.ScaleTop

End Sub


Private Sub Form_Resize()
Dim x, y, y1, y2, diff, diff1, diff2 As Integer

x = Me.ScaleWidth
y = Picture1.Width
y1 = Picture2.Width
y2 = Picture3.Width
diff = (x - y)
diff1 = (x - y) - y1
diff2 = (x - y) - (y1) - (y2)
Picture1.Move diff
Picture2.Move diff1
Picture3.Move diff2
Label1.Visible = True
Label1.Left = Me.ScaleLeft
Label1.Top = Me.ScaleTop
Label1.Width = Me.ScaleWidth
Picture1.Visible = True
Picture1.Top = Me.ScaleTop
Picture2.Visible = True
Picture2.Top = Me.ScaleTop
Picture3.Visible = True
Picture3.Top = Me.ScaleTop

End Sub

Private Sub Picture1_Click()
Unload Me 'Picture1 is a 'X' picture
End Sub

Private Sub Picture2_Click()
Static x As Integer
Dim pw As Integer
Dim y As Integer
x = x + 3
y = (x Mod 2)
'Picture2 is '+' Picture.
pw = Picture2.Width
If y <> 0 Then
Me.WindowState = 2
Picture2.Width = pw / 2
End If
If y = 0 Then
Me.WindowState = 0
Picture2.Width = pw * 2
End If
End Sub

Private Sub Picture3_Click()
Me.WindowState = 1 'Picture3 is '-' Picture.
End Sub