UserForm Özellikleri

---

'multipagenin 4. sayfasını aktif eder

Private Sub UserForm_Activate()

 MultiPage1.Value = 3
End Sub

'Userformdaki etiketlerin rengini ayarlar

Private Sub UserForm_Initialize()

 UserForm1.Label1.ForeColor = RGB(255, 0, 0)
 UserForm1.Label2.ForeColor = RGB(0, 0, 255)
End Sub

'userformun x (çarpı) dan kapatılmasını engeller

Private Sub UserForm_QueryClose _
   (Cancel As Integer, CloseMode As Integer)

   If CloseMode = 0 Then
      Cancel = 1
   End If
End Sub

‘userformu yazdırır

Private Sub CommandButton4_Click()

 Me.PrintForm
End Sub

'userform aktif olunca 2 saniye sonra kapanır

Private Sub UserForm_Activate()

  Application.Wait Now + TimeValue("0:00:02")
  Unload Me
End Sub

KaynakExcel vba Örnek Dosyalar Cd'si