Membuat Menu dalam VB

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu Mnuformat, vbPopupMenuRightButton, , , Mnukanan
End If
End Sub

Private Sub Mnukanan_Click()
Txtteks.Alignment = 1
End Sub

Private Sub Mnukeluar_Click()
Unload Me
End Sub

Private Sub Mnukiri_Click()
Txtteks.Alignment = 0
End Sub

Private Sub Mnumiring_Click()
Txtteks.FontItalic = True
End Sub

Private Sub Mnunormal_Click()
Txtteks.FontBold = False
Txtteks.FontItalic = False
End Sub

Private Sub Mnutebal_Click()
Txtteks.FontBold = True
End Sub

Private Sub Mnutengah_Click()
Txtteks.Alignment = 2
End Sub