NieuweFormulieren: code

Private Sub cmdControlBox_Click()
Load frmNoControlBox
frmNoControlBox.Show
End Sub

Private Sub cmdEnd_Click()
End
End Sub

Private Sub cmdFixedDialog_Click()
Load frmFixedDialog
frmFixedDialog.Show
End Sub

Private Sub cmdFixedSingle_Click()
Load frmFixedSingle
frmFixedSingle.Show
End Sub

Private Sub cmdFixedTool_Click()
Load frmFixedTool
frmFixedTool.Show
End Sub

Private Sub cmdLikeThis_Click()
Dim frm As New Form1
Load frm
frm.Show
End Sub

Private Sub cmdMaxButton_Click()
Load frmNoMaxButton
frmNoMaxButton.Show
End Sub

Private Sub cmdMinButton_Click()
Load frmNoMinButton
frmNoMinButton.Show
End Sub

Private Sub cmdMouseIcon_Click()
Load frmMouseIcon
frmMouseIcon.Show
End Sub

Private Sub cmdNoBorder_Click()
Load frmNoBorder
frmNoBorder.Show
End Sub

Private Sub cmdNoTaskbar_Click()
Load frmNoTaskbar
frmNoTaskbar.Show
End Sub

Private Sub cmdNotMoveable_Click()
Load frmNotMoveable
frmNotMoveable.Show
End Sub

Private Sub cmdNotVisible_Click()
Load frmInvisible
frmInvisible.Show
End Sub

Private Sub cmdUnload_Click()
Unload Me
End Sub

Private Sub cmdUnloadAll_Click()
Dim t As Integer
For t = 0 To Forms.Count - 1
Unload Forms(0)
Next t
End Sub

[VB Web] - [hlrnet] - [copyright]