ต้องกดปุ่ม OK ก่อนถึงจะกดปุ่มแสดง Crystal Reportsได้ ควรทำอย่างไร

 If showre.Enabled = True Then
                If Button1.Enabled = False Then

                Else
                    MessageBox.Show("ต้องกดปุ่ม OK ก่อน")
                    Return
                End If

              If rad1.Checked = True Then

                rpt1.Load(Application.StartupPath & "\CrystalReport1.rpt")

               End If
End If

If Button1.Enabled = False Then

                Else
                    MessageBox.Show("ต้องกดปุ่ม OK ก่อน")
                    Return
                End If

              If rad1.Checked = True Then

                rpt1.Load(Application.StartupPath & "\CrystalReport1.rpt")

               End If

ประกาศตัวแปรซักตัวก่อได้  ไว้ล่าง Class 
Dim sss As string = ""

rad1 คุณก็ Code ใน rad1 อันไหนติกก็ให้มัน Enabled   Button1   2  3 ตามลำดับ

เขียน Code ไว้ที่ปุ่ม  Button1   
sss  = 'Button1'     ก็ใช้สำหรับปุ่ม ok ปุ่มแรก
sss  = 'Button2'    ก็ปุ่ม 2 
สถานะ  Enabled  จะ เปิด ปิด ก็แล้วแต่ 


เขียน Code ไว้ที่ปุ่ม  cystal report 
If sss ="Button1" Then
If rad1.Checked = True Then
rpt1.Load(Application.StartupPath & "\CrystalReport1.rpt")
 sss.clear
End If

Else
MessageBox.Show("ต้องกดปุ่ม OK ก่อน")
End If

'เอาไว้ล่าง class
Dim sss As String = ""

'เอาไว้ในปุ่ม OK (Button1)
  sss = Button1.Enabled = True
            sss = Button2.Enabled = True

'เอาไว้ในปุ่ม cystal report 

    If sss = "Button1" Then
            If rad1.Checked = True Then
           rpt1.Load(Application.StartupPath & "\CrystalReport1.rpt")

    End If

        Else
        MessageBox.Show("ต้องกดปุ่ม OK ก่อน")
        End If